STORE 0 TO PL2,PL3
DO WHILE PL2=0
   set colo to W+/b,w+/n
   @ 4,3 clea to 23,78
   DO BOXT WITH 4,3,"STORE  INVENTORY  CONTROL",'N+','BG',.T.,.T.
   DO BOXT WITH 10,1,"LIST OF DRUGS AND DISPOSABLE ITEMS IN STORE",'GR+','B',.F.,.F.
   DO BOXT WITH 12,1,"INDICATE LOW INVENTORY ITEMS IN CENTRAL STORE",'GR+','B',.F.,.F.
   DO BOXT WITH 14,1,"PREPARE RE-ORDER REQUISITIONS FROM THIS MENU",'GR+','B',.F.,.F.
   DO BOXT WITH 16,1,"RE-ORDER WILL BE FINALIZED BY SUPERVISOR",'GR+','B',.F.,.F.
   DO BOX2 WITH 20,3,'DO YOU WANT TO CONTINUE ? :','YES','NO','GR+','R','W+','N',PL2,.T.,.T.
   SET COLOR TO BG+/B
   IF PL2=2 .OR. LASTKEY()=27
      RETURN
   ENDIF
   DO WHILE PL3=0
      SET COLOR TO BG/B
      @ 4,1 CLEA TO 23,78
      DO BOXT WITH 4,3,"STORE  INVENTORY  CONTROL",'N+','BG',.T.,.T.
      set color to w/n
      @ 10,5 clea TO 20,47
      set color to n/bg,w+/n
      @ 9,3 clea TO 19,45
      @ 9,3 TO 19,45
      @ 10,5 PROMPT "A1. EDIT LOW INVENTORY ITEMS          "
      @ 12,5 PROMPT "A2. PRINT INVENTORY CONTROL FORM      "
      @ 14,5 PROMPT "A3. ENTRY ADJUSTMENT STOCK TAKE       "
      @ 16,5 PROMPT "A4. PRINT ENTRY ADJUSTMENT STOCK      "
      @ 18,5 PROMPT "X . BACK TO PREVIOUS MENU             "
      MENU TO PL3
      set color to BG+/B,w+/n
      DO CASE
         CASE PL3=1
            DO INVAA
         CASE PL3=2
            DO INVAD
         CASE PL3=3
            DO INVAE
         CASE PL3=4
            DO INVAF
         CASE PL3=5 .OR. LASTKEY()=27
            RETURN
      ENDCASE
      PL3=0
   ENDDO
ENDDO
RETURN